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tet Bep-19k6 S2sc7 ibe “SSSSSDGASBSCROM SAC aMAMEAD.B32;1 2% c4} 


' 
‘ | 


; i version: "v04-000" ; 
: i eeeeereeereerenerereneeeeeererteeeeeeeeeereeeeeeeeeeeeeeeeeeeeeeeeereeeeeer 3 
'e * 
ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY “ : 
; is DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. « : 
; is ALL RIGHTS RESERVED. e : 
; 10 ie THIS SOFTWARE, 1S FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * : 
; 11 '® ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * : 
; \¢ 'e INCLUSION OF THE ABOVE COPYRIGHT N OTICE. THIS SOF TWARE OR ANY OTHER * 

3 1 'e COPIES IWEREOF RA Y Not BE PROV IDED OR OTHERWISE MADE AVAILABLE TO ANY * 

; 14 'e OTHER PERSON. TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 

; 0019 9 1* TRANSFERRED. : 

; :* 

; 0019 9 '® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 

3 9018 . '® AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 

; 9019 is CORPORATION. : ‘ 

Py :* 

; 0021 . '® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 

3 8 — SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. : 

: i ; 

: Boge 0 — ———————————— 

3 9 

Bee te 

; 9029 0 | NMAHEAD.B32 

; 8 1 ! ; Define SEQULST macro to make library from the NMALIBRY.B32 file 

; 0038 0 This source is taken from the following source: 

; 9035 0 i 

; $0 7 0 i UTLDEF.B32 - UTILITY DEFINITION MACROS FOR BLISS PROCESSING 

; 0038 0 i OF STARLET DEFINITION MACROS. 

; 0039 0O i 

; 00460 0 —* 

BB 

; 0043 0 

3 8 nacko TO GENERATE EQULST CONSTRUCTS. 

: 0048 MACRO 

; 8 006 SEQULST(P,G,1,S)CAJ= 

: 8 UNAME(PSGETIST_ A) = 

; 004 Z1F NUL2ND- A 

; M 0050 ZTHEN (1) * ZCOUNT#(S) ! ASSUMES I, S ALWAYS GENERATED BY CONVERSION PROGRAM 

; 0051 0 set SE GET2ND_ A - : 

3 26 0 FI 2, , 

; 105 8 

3 ™ 0054 GETIST_(A,B)= 

; 055 0 x 

: iM 096 0 GET2ND_(A,8)= 

3 5 B°%, ! KNOWN NON=NULL 


i 


NUL (A,B)= 
— 1: 


End of NMAHEAD 
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3 88 A XEEEEEVVEEEEEEEEEEEEE? 
3 065 i Created 15-SEP-1984 23:04:56 by VA¥-11 SDL V2.0 Source: 15-SEP-1984 22:46:48 _$255$DUA28:CMOM.SRCIMOMDEF . 
3 88 
3 8 
3 i pees MODULE SMOMDEF *** 

: 71 0 Internal codes used to identify entity type of current circuit, 

3 83 0 ! Line or node. 

:; 0075 0O : 

; 0074 literal MOMSC NODE = 

; 0075 Literal MOMSC =NODEBYNARE = 

3 gore Literal MOM$C_CIRCUIT_= * 

84 Literal MOMSC“LINE = 3; 

: 0979 4 MOM constants used in parsing NICE messages. 

: 0081 0 literal MOMSC -NODE_ID_PARAM = 0; ! Parameter is a node address and/or name 

3 8 Literal MOMSC~NODE_ADBR_ PARAM = 1; ! Parameter is a node address 

; 0084 0 | Flags set in MOMS$GL_SERVICE_FLAGS 

: 0086 0 literal MOMSM -AUTOSERVIC 

; 0087 8 Literal MOMSM_NI_C : 

; 0088 Literal MOMSM_MOP Rev our = 4; 

3 0089 0 Literal MOMSM_LOOP_W_ASSIST = 8; 

; 0090 0 Literal SM_LOOP WwW meceesacTs = 16; 

: 0091 0O Literal SM_NI_MOLTICAST = 32; 

3 0092 0 Literal MOMSM_CONSOLE CARRIER_LOAD = 64; 

:; 0093 0 Literal SM_NI VOLURTEERING” = 128; 

; 0094 0 Literal MOMSK_FAC_CODE = 519 ! Facility code 

; 0095 8 Literal MOMSK_ “$167 CODE = 34013184; ! Signal code (519*16) 

; sia 8 MOM constants - Q10 buffer sizes, etc. 

: 0099 0 Literal MOMSK_NI ADDR LENGTH = 6; ' Length of Ethernet addresses. 

: 0100 0 Literal MOMSK_NICE BUF _LEN = : ! NICE message buffer Length 

: 0101 0 Literal — 5* Bur CEN = 512; ' Q10 buffer Length 

: B10¢ 0 Literal MOMSK~P2 Bur CEN = 104; ! Max length for P2 buffers. 

; 0103 0 Literal MOMSK_MAX_MOP mSG. EN = 1500; ! Maximum length for a received MOP message 
3 0108 4 Literal RORSK NI I_PREFIX =" 262314; ! Standard NI prefix used for DEC Phase | 

3 ‘ routers. 

; 0106 0 Literal MOMSK_LOADUMP_NI_PROT = 352; ! NI Load/Dump Protocol type for NI driver 
F 3 24 0 Literal MOMSK- ~FONSOLE “NI- pate = 008: ! NI Remote Console Protocol type. 

: 108 0 Literal —* Adoſ PROT = ' NI Loop Protocol type for NI driver 

5 8 Literal MOMSK “be. coor’ NEADER $50: ! Maximum size the loop message headers 
; ! can be 

s 0111 O Literal MOM$K LOOP_HELP = -1; ! Default value for circuit loop help type. 
: Ng 0 Literal MOMSK “SeIp ORUCTICASTS = 1; ! When looking for a MOP message response, 
: M2 0 } skip over multicasts. 

: a6 Internal loopback type codes. 

; 119 é Literal MOMSC_LOOP_MOP = 0; ! MOP Loopback operation 

; 0118 O Literal MOMSC_LOOP_PHASE3 = 1; ! Phase III loopback operation 

; 0119 0 Literal MOMSC_LOOP PHASE2 = 2; ! Phase II Loopback operation 

; 0120 0 Literal MOMS$S_MOMDEF = 1; 


48 e — “SSS4SDDASBSE ROM GBs aMOMDEF.R32;1 29° cap 
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macro MOM$V mimat tare = 9. 21,0 %; ! dutoservice fynetion in progress (as 

macro MOMSV_NI CIRC = 0,1,1,0 2%; ' Serv ¢ function is on an Ethernet circuit. 
macro MOM$V_MOP_RCV_OUT = 0, 409 i; ! There is a MOP receive outstandin 

macro MOMS$V “LOOP U ASSIsi = 0,3,1,0 2; ! boop an NI circuit using a third node to 
macro MOMSV_LOOP"W-ACCESS_ CTL = 0,4,1,0 %; |! Loop a node with using an access —— 
macro MOMS$V_NI ROLTICAST =°0,5,1,6 £;° ! Autoservice request received on an NI was 
macro MOMS$V_CORNSOLE CARRIER_LO. OAD’= 0.6,1.0 % Down Line loading console carrier code 
macro MOMSV_NI “VOLURYEERING™ = 0,7,1,0 £;'! A multicast service request was received 

: fFom”a target on the NI. MOM is 


| 
1 
(needed because the file n by is 

} different than other load files). 

! a multicast. 

23 (supplied in the NICE message). 
' 

' 

1 

' 

! 


opposed to operator requested 
service function. 


MOM facility code 


anaes MODULE SMOPDEF *** 
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8 
9 
40 
8 
8 
44 
45 ' 
8* MOP message definitions 
48 
8 Define MOP function codes. 
51 literal MOPS_FCT_MLT = 0; ! Load/dump Memory load with transfer address 
26 Literal MOP$_FCT_DCM = 1; ' Dump Complete 
5 Literal MOPS_FCT_MLD = z ' Load/dump Memory load 
54 Literal MOPS_FCT_ASV = 35; ! Load/dump Assistance volunteer (NI only) 
55 Literal MOPS_FCT_RMD = 4; ! Request memory non 
56 Literal MOPS_FCT_RID = 5; ! Remote Console Request ID 
57 Literal MOPS_FCT_EMM = g: ! Remote Console Enter snOP mode (boot) 
58 Literal MOPS_FCT_SID = 7; ! Remote Console System | 
59 Literal MOPS_FCT_RPR = 8: ! Load/dump Request progren, 
60 Literal MOPS_FCT_RML = 19; ! Load/dump Request Dump, Serv 
61 Literal MOPS_FCT_RDS = 12; ! Load/dump Request —— ervice (old MOP Mode Running) 
62 Literal MOPS_FCT_MDD = 14; ! Load/dump Memory ome 
65 Literal MOPS_FCT_PLT = 20; ! Load/dump — * oad uteh transfer address 
64 Literal MOPS_FCT_ALD = 24; ' Active loop 
65 Literal MOPS_FCT_PLD = 25; : Passive ray data 
ef Define MOP parameter codes. | 
69 literal MOPS$C _PAR_ = 1; ' Target node name 
70 Literal MOP$C_PAR_NAD = z ! Target node address 
71 Literal MOPSC_ = 3; ' Host node name 
% Literal MOPS$C"PAR_HAD = 4; ! Host node address 
* Literal MOPSC"PAR_HTI = 5; ! Host system time 
8 Define MOP Software ID codes for Request Program and Boot messages. 
* literal MOPSC _SID_NON = 0; ! No software ID | 
| 
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| 
jseret MOPSC_SID_OSY = $37: Standard Speret ine System 


3a 


eral MOPSC_SID_MAI = Maintenance Syste 

Define MOP Processor codes for Boot messages. 

ral MOPSC_PRO_SYS = 0; ! System processor 
. MOP 1; 


$C"PRO-COM = 
Console Carrier) 


oe 
coc 
ee 
ne | 
a 


! Communications processor (for loading 


ME wr 


Define function codes used in NI loop messages. 


iteral MOPSC_NILOOP_REPLY = 1; ! Reply to looped message 
iteral MOPSC_NILOOP_FORWARD = 2; ! Forward Looping message 


ooo 


wre 
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A 
: Service Data 
! Definitions of target node service information. This information is 
! retrieved from the volatile database and, if applicable, the NICE command. 
: It is saved in this table for use by Service during the service operation. 
Literal SVDSM_MSG PARAM = 1; 
Literal SVDSK_ENTRY_LEN = 137; ! Lenath of SVD table entries 
Literal SVDSC_ENTRY_LEN = 137; ! Length of SVD table entries 
Literal SVDSK_BYTE = 0; 
Literal SVDSK_WORD = 1; 
Literal SVDSK_L = 2; 
SVDSK_STRING = 3; 

Literal SVDSS-SvDDEF = 137; 
macro SVDSL_NFB_ID = 0,0,32,0 %; ! NFB Field ID for Q10s to NETACP 
macro SVD$SB_NFB-DATABASE = $,0,8,0 %; | NFB Field ID database (subfield of NFB_ID) 
macro SVD$W_NICE_ID = 4,0,16,0 2; ! WICE message parameter ID 
macro SVDSB_NICE eg | ="6,0,8.0 &; ! Parameter type in NICE messages 
macro SVD$B8_FLAGS = 7,0, 8 15 id 
macro SVDSV_MSG_PARAM = 1,0 &; ! The parameter value was supplied by the 
macro SVD$B_STRING_LEN = 6.6.8.0 &: ! Byte length of parameter value 

© SVD$T STRING = 9,0 3.0 z; 
Literal SVDSS_STRING = 128; ' If it's a string parameter, the string. 
macro SVDSL_PARAM = 9,0,32,0 2%; ! If it's not a string parameter, the parameter 


' 
Parametr type definitions 


jess MODULE SMDTDEF *#* 


! Mop Device Table definitions 
! This table contains the ASCII device name strings associated with a 

‘ iven MOP device code. It is used to construct secondary and tertiary 

' oad file names when none are specified in the database. The characters 
! "SEC* or ‘TER’ are concatenated with the device name string to construct 
a load file name. 


(iteral MDTSK_ENTRYLEN = 3: 
Literal MDTSC_ENTRYLEN = 5; 
Literal MDTSS-MDTDEF 
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= 5 
macro MDT$SB_DEVTYPE = 0,0,8,0 %; 


Flags fie 
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F 12 
12-300 
15-Sep- -8255$DUA2 
macro MDTSA_DEVSTRING = 1,0,32,0 2%; 
pane MODULE SCIBDEF *** 

Channel Information Block (CIB) 


' 

' 

Literal CIBSH TARGET ADDR FINED = 1; 

Literal CIBSK_CIBLEN = 76; 

Literal CIBSC_CIBLEN = 76; 

4 address and protocol to use (among 
; other things 
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! HIORD NI address of —MN 
%; ! HIORD NI prefix assigned to Digital 
%; ! Node address withing HIORD NI address of target 


é; ! Hardware NI address of target 
. 0,16,0 2%; ' Flags field 
$V~TARGET_ADDR_f IxED = 16,0,1,0 2; ! Set when there is no alternate address 


00000000 
P| 
o 
> 
-oD 
— 
Du 


oOo 
DONA OONOUS WN" 


! of ia rce" address. 
macro CIBSL_RETRY_CNT = 18,0,32.0 2%; ! Transmit retry count for transaction. 


= 54 P2 buffer for telling NI driver which NI 
3 0 %: MOP message buffer size 
30 t: 


Put pad count on NI messages. 
6,6, 0%; ! Target Ni physical address 
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#0 
macro CIBSL_P2_BUF SIZ ="24 
macro CIBS$L_P2-PADBING = 30 
macro CIBSL~P2-PROTOCOL = 4 
macro CIBST_NI_PHYS_ADDR = 


pees MODULE SNIHDEF ⸗⸗⸗ 
NI header definition 


i s. 

' The NI Sevice driver (XEDRIVER) returns the NI header for a 2* 
in the P35 parameter. There are several cases in which MOM needs to 
i 
i 


NI Protocol to use 


7 


get this header in order to find out which target on the a message 
came from or whether or not it was sent to a multicast address. 


iteral NIHSK_NI_HEADER_LEN = 14; 
Literal NIHSCCNIOHEADER-LEN = 14; 
Literal NIHSS-NIADEF = T4; 
macro NIH$T_ DEST _NI_ADDR = 0,0,0,0 2; 
Literal NIHSS DEST_AI_ADDR = 6; ! destination Ni address of message 

I CAST"= &°o ; o% ! Low bit set if destination is a multicast 

SOURTE_RI_ADDR = 83 ! Source Ni address of message 

macro NIH$W_PROTOCOL_TYPE = 12,0,16,0 2; ! Protocol type of message 


yeee MODULE SMSBDEF *** 


i Message segment block (MSB) definitions. The MSB is used to accumulate 
! information with which to build the NICE response message returned to NCP 
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ral MSBSK-LENGTH = 28; ! Maximum MSB size 
Literal MSBSC_LENGTH = 28; ! Maximum MSB size 
macro MSBSL FLAGS © 0,0°83,0 t FL 
macro = 0, oO 2; : ags 
macro —A FLD = 6 $ ? 0 %; ' Status code present (not used) 
macro MSBSV-DET_FLD = 0.{.1.6 %; i Error detail field present (DETAIL) 
macro MSBSV_MSG_ FLD = 0,2,1,0 2; ! Message text field present (TEXT) 
macro MSBSV_MSG2_FLD = 3.1.0 &: ! Second Line of message text present (TEXT2) 
macro MSBSV_ENTD_FLD = 0,4,1,0 2%: ! Enitity descriptor field present (ENTITY) 
macro MSBSV_DATA_FLD = 0,5,1,0 %; ! Data descriptor field present (DATA) 
macro MSBSUTDETAIL 2°8,0;46-6 % Be Bees 

= PY . e 

macro MSBSL_TEXT = 12 6 * 6 3; ! Status code for text message. 
macro MSBSL_TEXT2 = 1 6 ‘ 0 &; ! Status code for second Line of text msg. 
macro MSBSA_ENTITY = 6.6 340 {; ! Entity descriptor address 
macro MSBSA_DATA = 24,0, 2,0 2; ! Data descriptor address 


pee MODULE SDBGDEF *** 


NML internal Logging (debugging) flags 
i These flags are used to enable Logging of specified data to the NML log 
! file. The flags are defined by translating the logical name NMLS$LOG, which 
MOM uses also. The permanent database and event logging flags are not 
used by MOM. 
seat BBSEE-AETEES" | Mttssrbaroe(certdzs tenn 
era = 1; : e read/write loggin 
Literal DBGSC_NPARSE = z; ! NPARSE state transition Login 
HAStat BRSEEAMIND 5 | RBRREESG oP taapiagrecetve Cooging 
Literal DBGS$C“MOPIO = 5; i Mop send/recetce fogging - see MOP_xxx flags below. 
Literal DBGSC_SRVTRC = g; ! Trace service operations 
Literal DBGSC_EVENTS = 7; ! Network event (EVL) logging 
ive following flags must be set in conjunction with the DBGSC_MOPIO 
: ag. 
' 
Literal DBGSC_MOP_OTHER = 8; : ALL other MOP send/receive messages 
Literal DBGSC_MOP_MLD = 9; : MOP Memory Load Data messages (MOPS FCT MLD) 
Literal DBGSC-MOP-RML = 10; : MOP Request Memory Load messages (MOPS$_FCT_RML) 
Literal DBGSC_MOP_RMD = 11; : MOP Request Memory Dump messages (MOPS_FCT RMD) 
Literal DBGSC"MOP_MDD = 12; ! MOP Memory Dump Data messages (MOP$_FCT_MDD) 
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i ZTITLE "MOMDDL - MOM Data Definition Library’ 
IDENT = 'V04=000" 
i peeereeererrenrereereeeeereeeeeeereneeeereeeeeerereeeeeeeeeeeeeeeeeeeeeenete 
'@ * 
ie COPYRIGHT («) 1978, 1980, 1982, 1984 B ® 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. » 
is ALL RIGHTS RESERVED. . 
ie THIS SOFTWARE 1S FURNI SHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
ie ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE ®* 
ie INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS sof TWARE OR ANY OTHER . 
ie COPIES THEREOF MA Y NOT BE PROVIDED OR OT HERWISE MADE AVAILABLE TO ANY * 
ie OTHER PERSON. TITLE TO AND OWNERSHIP THE SOFTWARE IS HEREBY * 
ie TRANSFERRED. ‘ 
‘fe — 
ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
ie AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
is CORPORATION. ‘ 
ie DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
is SOFTWARE ON EQUIPMENT WHICH I$ NOT SUPPLIED BY DIGITAL. . 
be e 
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FACILITY: DECnet-VAX Network Management Maintenance Operations Module (MOM) 


ABSTRACT: 
Contains structure definitions and global macros used by MOM. 


ENVIRONMENT: VAX/VMS Operating System 
AUTHOR: Kathy Perko 

CREATION DATE: 9-Jan-1982 

MODIFIED BY: 


v03-001 mKPO001 


20-Jan-1984 
Add SERVICE NODE KUERSION po parameter. 


: Miscellaneous symbols 
LITERAL 
FA 


-0=742 
SRC JMOMDDL .B32; 1 


Page 


(1 


8 
) 


SS — — 
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i Structure declarations used for system defined structures to 
: save typing. 


STRUCTURE 


Wn 


w 


mtn CO, P, S$, E; NJ = 

BBLOCK+0)<P,S,E>, 

—— C1, 0, P, S, E; N, BS) = 
N*BS) 
((BBLOCKVECTOR+1*BS)+0)<P,S,E>; 


1 
Macro to signal status message 
MACRO 
SSIGNAL_MSG [I] = 
SIGRAL (MOMSK_SIG_CODE, %REMAINING) 


Se Se Ge Oe Ge Se Se Oe Se Se Oe Se Se Se Oe Se Se oe Se oe 
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Generate a Search Key ID X. an NFB. If the Search key is null, 
use a wildcard search key | 


SSRCH_KEY (DATABASE, SRCH_ID) = 
LONG ( ZIF INULL (SRCA 1D) 
ZTHEN NFBSC_WICDCAR 
HEISE SFIELD™ 1D (DATABASE. SRCH_ID) 


NSSELSSPERES SELENE SES 
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i Generate a List of Longwords containing the NETACP field IDs for 


! the parameters. This iterative macro will generate as many 


; i Macro to generate Network ACP Control Q10 (NFB) P1 buffer contents. The NFB 
; ; yee BR SET, SHOW, CLEAR, and ZERO operations. 

; RACRO 

; 5 SNFB (FUNC, FLAGS, DATABASE, RCH _KEY_ONE, OPER_ONE 

388 SRCHIKEY-TWO, OPER-TWOS = 

3 A BYTE ¢ IF 31D NTICAL (FUNC, 0) ! Q10 function code. 

im ELSE ENAME ('NFBSC_FC_* FUNC) 

: i BYTE ( ZIF TULL (FLAGS) | Sever Uodare and Process 
34 ZTHE Multiple Entries flags. 
the hee 

3 " BYTE ¢ AIF XIDENTICAL (DATABASE, 0) ! ACP database to update. 
3 " ZELSE NAME ('NFBSC_DB_" .DATABASE) 

+ 0440 BYTE (ZIF THULE (OPER_ONE) ! Oper 

: 4 0441 ZTHEN 

; A 4 XELS E OPER_ONE 

tM 06464 ), 

3; ® 04465 SRCH_KEY (DATABASE, SRCH_KEY_ONE), !' Search key one ID 

> Mm 0446 SSRCH-KEY (DAT ABASE, SRCH-KEY-TWO), i Search key two ID 

: a BYTE THIF ENUL (OPER_TWOy i Oper 

: : ZELSE OPER_TwWO 

3 . vi 

: § BYTE (0), ' Spare 

; : 0 WORD (0), ' variable cell size 

35 ZIF NOT ZNULL(ZREMAINING) 

: 8 0 XTHEN SFIELD ID LIST (DATABASE, ZREMAINING) 

: A" J ONG (RFBSC_ENDOFLISTS ! End delimiter for field ID List. 
; 8 a LONG (NFBSC_ENDOFLIST) ! End delimiter for field ID List. 
: 
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OOOSOOOOIOOIOOIOSOOOIOOOOOOOOOOOOOOOOOIOOOIOOCOOOIOCOOIOOSOOS 
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: field IDs as are supplied. 
SFIELD. 1D Ist (DATABASE) CFIELD_1D) = 
G TSFIELD_ID (DATABASE, FTELD_ 1D)) 
“"y rt (DATABASE , FIELD_ID) 
IDEN NTICAL (FIELDID. W NFBSC_WILDCARD) OR 
(FIELD“ID, NFBSC~COLLATE) 
FIELD_ID 
ZELSE 
LIF —X (FIELD_ID) 
ZTHEN 
ELSE ZNAME ('NFBSC_",DATABASE,'_',FIELD_ID) 
“FI 
%; 


! 
: Macros to generate Network Control 1/0 request descriptors. 


MACRO 
i Declare the NFB buffer (use the number of input gereneters to figure 
out how big to make it) and set up a descriptor for it. 


SNFBDSC (NAM) = 
SWITCHES UNAME S ; 
OWN 


NFB : VECTOR CSNFB_ALLOCATION (ZREMAINING) J 
BIND “INITIAL (S$NFB (ZREMAINING)); 


UNDEELARE NFS: = UPLIT (ZALLOCATION(_NFB), _NFB); 
wa CHES NOUNAMES 


SNFB_ALL CATION (} = 
(MAX (0, BLENGTH~6) ) 


12 
1$-Se0-1964 3350888 | Sess DUASBStacm’ saeamoMpoL.e32;1 29° 45 


3 1 ! 

3 6 ; 1/0 Status Block definition 

3 § FIELD 

3 10SB_FIELDS = 

3 4 SET 

3 5 10S$W_STATUS = = fe . 16, ' Status field 
3 — 10S$wW_ COUNT e 18: i Byte count field 
; aaa = « Be i Device dependent information 
3 MACRO 

34 $10SB = 

3; #4 2 § BBLOCK (8) FIELD (IOSB_FIELDS) 

. 1 

5 Macro to create constant string descriptor 

; @ MACRO 

; * 0538 SASCID () = 

3; #4 8 9 (UPLIT (ZCHARCOUNT(ZSTRING( real NING) ) 

> M0540 6 UPLIT BYTE (%STRING(ZREMAINING) 5)) 
; 0541 q; 

$ 88 9 

5430 CRO 

; 40544 O S$ASCIC () = 

3; m4 88 UPLIT BYTE (ZASCIC ISTRING (ZREMAINING)) 

3 3 9 

; 886809 

83 — Macro to declare frequently used externals in MOM 
3; #4 Fe 0 MACRO SMOM_EXTERNALS = 

346 235 8 EX” ERNAL 

3; 4 055 RORSGL rot BITVECTOR (32), 

3; #0554 O MOMSGL_ SV. IND 

: 0955 0 MOMSAB_ SERVICE OOATA: BBLOCKVECTOR CO,SVDS$K_ENTRY_LENJ, 
3: #4 228 0 MOMSGB_F UNCT TT5R. YTE, 

3; #4 B22 0 MOMSGB_OPTION_BYTE: BYTE 

3; #4 228 MOMSGB_ENTITY_CODE: ay 

3; ™ 055 MOMSAB_ENTITY_BUF : = 

; ™ 0560 MOM$GQ_ENTITY BUF _DSC: veCtOn, $ 

> ™ 0561 0 MOMSGL~SERVICE_FLAGS: 

3 M 0562 MOMSAB_NPARSE GLK: 

7 4 0565 HOMSAB-NICE_REV | BUF era 

3; M 0564 MOMSAB_NICE_XMIT i. 

3; 4 0565 0 MOM$SGQ"NICE-RCV "Bur. DSC: raait 

ae 206 MOMSGL_NICE_RCV V-MSG_L 

: 6 056 MOMS$GO-NICE~XMIT_BUF_ LBS: : VECTOR 91, 

3; 8 208 MOM “MSGBCOCK :~ BBLOCK 

3; #4 28 MOMSAB_ACPQIO_BUFFER: BBLOCK ° 

; #0570 MOMSGQ"ACPQI0— BUF_DSC: VECTOR ° 

> ™ 0571 MOMSAB~ CIB: BBLOCK (0), 

ae | 276 MOMSAB_LOOP_CIB BBLOCK — 

3; 4 057 MOM AB- TRIGGER C78: BBLOCK ° 

; 0574 MOMSAB_MOP_XMIT_BUF BBLOCK : 

; # 0575 MOM$GQ~ “MOP XMIT~ BUF ‘psc: VECTOR (OJ, 


<z | 


MOMSAB_MOP_RCV_BUF 88 
MOM$SGQ"MOP"RCV"BUF ‘DSC: VE 


LOCK 
CTOR 
MOMSAB_MOP"MSG: BBLOCK 
MOMSGQ_MOP_MSG_DSC: fron 
TE, 
TE; 


<EVT “PSER: 


—3 LITERAL 

DSGK_PCNO_ADD, 
SVD$GK-PCNO_SDV, 
SVDSGK-PCNO_CPU, 


Oooo 
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⏑⏑’UI —⏑ 0 


——— 
SVD$C_ENTRY~ COUNT; 


' 
NPARSE argument block structure definitions 


CRO 
SNPA_ARGDEF = 
BUILTIN 


Be Se Se Ge Ge Se Se Se Se Se Se Ge Se Ge Se Ge Ge Ge Ge Ge Se Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Se Se Ge Se Ge Ge Se Ge Se Se Ge Ss Ge Se Ge Se Se Se Se Se Se Se Se Ge ee 


283888888888888888888888 
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; 
g 


IND 
* NMPARSE BLOCK = AP : REF SNPA_BLKDEF; 


1 
{ NPARSE argument block definition macro 


“Ton BLKDEF 


BBLOCK CNPASK _LENGTHO) 


1 
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: Created 15-SEP-1984 23:05:03 by VAX=-11 SDL v2.0 Source: 15-SEP-1984 22:46:56 _$255$DUA28: (MOM. SRC INPADEF . 


! REAR KAA AAEAEAE RARE EAAAAAREREE EAA EAT ARERR EAE RE RE AEE AAEAAAAAAAAARAAAAAERAAAAAEAEAAAAAEAAAAETEREREREEEAEAE Ee 


tee® MODULE SNPADEF ##® 
Literal NPASK_COUNTO = 8: 

Literal NPASK-LENGTHO = 3 ; 
Literal NPASC_LENGTHO = 36; 
Set Be NPADF 


gument count value 
ze of argument block structure 
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Size of argument block structure 
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: 
06 = 33 
06 macro COUNT = 0,0 0 %; ! Argument count (NPA$K_COUNTO) 
8 macro NPASL_MSGCNT = 4.6, $- i; ! Count of bytes remaining in message 
macro NPASL_MSGPTR = 8,0, 2; ! Pointer to remaining message 
06 macro NPASL-OPTIONS = {2.0,$2,0'%; i Options (not used) 
macro NPASL_FLDCNT = 16.6.3 6%: ! Count of bytes in matched field 
06 macro NPASL_FLDPTR = 20, 0 %; ! Pointer to matched field 
8 macro ay oA a = 38 a: } notched Conquered value 
macro % = 24,0, 3 ! word value 
066 macro NPASB_BYTE = 24 9.8.6 a; i byte value 
066 macro NPASL_NUMBER = é 0,32,0 %; ! Matched signed value (not used) 
066 macro NPASL_PARAM = 3 ,6,2,6 &; ! Action routine parameter value 
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3 dete Time: 
; Lines/CPU Min: 


1 
Version: *v04-000' 
i eeeeeeeerrereereeeeeeeeeeeneeeeeeenerereeeeeeeeeereereerereeeeeeeeeeeeeeeeee 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


& 
® 
&e 
® 
4 ® 
‘fe ve fe ich 1S FURNISHED UNDER A LICENSE AND MAY BE USED AND corrte * 
:* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
Hl INCLUSION OF THE ABOVE Sh LP ot NOTICE. THIS SOFTWARE OR ANY OTHER * 
is COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY ®* 
!* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
't TRANSFERRED. * 
® 
3* phe ate IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
Hl SHOULD BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
He CORPORATION. “ * 

® 

® 

*® 

® 

® 

* 


i® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
:* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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NMATAIL .B32 


‘ pourts to undeclare the macros required for the precompile of 
' NMALIBRY.B32 so they do not appear in the Library. 


UNDE CLARE aver SEQULST, 
ZQUOTE GETIST 
TOUOTE GET2ND 
ZQUOTE NULSND = 


: End of NMATAIL.B32 


COMMAND QUALIFIERS 


; BLISS/LIBRARY=LIB$:MOMLIB/LIST=LIS$:MOMLIB SRC$:NMAHEAD+L 1BS:MOMDEF +SRC$:MOMDDL +L IBS$:NPADEF +SRC$:NMATAIL 


0:05.6 
— 
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CMOM. SRCINMATAIL. B32;1 


— 
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3 jonenee/CPU=Ain; — 
; Memory Used: pages 
; Library Rosenstane on Complete 
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